home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 5 / Eagles_Nest_Mac_Collection_Disc_5.TOAST / 7th-College / LearnGe105#1 / English_German I 1.05 / background_6538.txt < prev    next >
Text File  |  1990-01-05  |  13KB  |  594 lines
  1. -- background: 6538 from stack: in.05
  2. -- bmap block id: 7120
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. function otherCheck
  8. if hilite of bkgnd button "Other"
  9. then put true into otherRange
  10. else put false into otherRange
  11. return otherRange
  12. end otherCheck
  13.  
  14. function rangeCheck
  15. if bkgnd field "Scan Rate" >= 0 and bkgnd field "Scan Rate" <= 30
  16. then put true into inRange
  17. else
  18.   put false into inRange
  19.   beep 2
  20. end if
  21. return inRange
  22. end rangeCheck
  23.  
  24. function noGroup
  25. global A,B,C,D
  26. if not A and not B and not C and not D then
  27.   put true into zip
  28.   beep 2
  29. else put false into zip
  30. return zip
  31. end noGroup
  32.  
  33.  
  34.  
  35.  
  36. -- part 1 (button)
  37. -- low flags: 00
  38. -- high flags: 6005
  39. -- rect: left=20 top=77 right=99 bottom=120
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: groupA
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.  
  51.   --FlashStack Ready
  52.  
  53.   global A
  54.   if hilite of bkgnd button "groupA" then
  55.     put true into A
  56.   else
  57.     put false into A
  58.   end if
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 2 (button)
  64. -- low flags: 00
  65. -- high flags: 2005
  66. -- rect: left=20 top=98 right=122 bottom=374
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: groupB
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   global B
  78.   if hilite of bkgnd button "groupB" then
  79.     put true into B
  80.   else
  81.     put false into B
  82.   end if
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 3 (button)
  88. -- low flags: 00
  89. -- high flags: 2005
  90. -- rect: left=20 top=121 right=143 bottom=120
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: groupC
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.  
  102.   --FlashStack
  103.   global C
  104.   if hilite of bkgnd button "groupC" then
  105.     put true into C
  106.   else
  107.     put false into C
  108.   end if
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 4 (button)
  114. -- low flags: 00
  115. -- high flags: 2005
  116. -- rect: left=20 top=142 right=164 bottom=120
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: groupD
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.  
  128.   --FlashStack Ready
  129.   global D
  130.   if hilite of bkgnd button "groupD" then
  131.     put true into D
  132.   else
  133.     put false into D
  134.   end if
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 5 (button)
  140. -- low flags: 00
  141. -- high flags: A006
  142. -- rect: left=22 top=189 right=211 bottom=122
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Slow
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   global scanRate
  154.   put 5 into scanRate
  155.   if not hilite of bkgnd button "Slow" then
  156.     set hilite of bkgnd button "slow" to true
  157.   end if
  158.   set hilite of background button "Fast" to false
  159.   set hilite of background button "Medium" to false
  160.   set hilite of background button "Other" to false
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 6 (button)
  166. -- low flags: 00
  167. -- high flags: E006
  168. -- rect: left=22 top=210 right=232 bottom=122
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Medium
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   global scanRate
  180.   put 3 into scanRate
  181.   if not hilite of bkgnd button "Medium" then
  182.     set hilite of bkgnd button "Medium" to true
  183.   end if
  184.   set hilite of bkgnd button "Slow" to false
  185.   set hilite of bkgnd button "Fast" to false
  186.   set hilite of bkgnd button "Other" to false
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 7 (button)
  192. -- low flags: 00
  193. -- high flags: A006
  194. -- rect: left=22 top=231 right=253 bottom=122
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Fast
  203. ----- HyperTalk script -----
  204.  
  205. on mouseUp
  206.   global scanRate
  207.   put 1 into scanRate
  208.   if not hilite of bkgnd button "Fast" then
  209.     set hilite of bkgnd button "Fast" to true
  210.   end if
  211.   set hilite of bkgnd button "Slow" to false
  212.   set hilite of bkgnd button "Medium" to false
  213.   set hilite of bkgnd button "Other" to false
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 8 (button)
  219. -- low flags: 00
  220. -- high flags: A006
  221. -- rect: left=120 top=189 right=211 bottom=177
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: Other
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   global scanRate
  233.   if not hilite of bkgnd button "Other" then
  234.     set hilite of bkgnd button "Other" to true
  235.   end if
  236.   set hilite of bkgnd button "Slow" to false
  237.   set hilite of bkgnd button "Medium" to false
  238.   set hilite of bkgnd button "Fast" to false
  239.   put 0 into bkgnd field 1
  240.   type tab
  241.   put bkgnd field 1 into scanRate
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 9 (field)
  247. -- low flags: 00
  248. -- high flags: 0002
  249. -- rect: left=179 top=191 right=209 bottom=220
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Scan Rate
  258.  
  259.  
  260. -- part 10 (button)
  261. -- low flags: 00
  262. -- high flags: 2000
  263. -- rect: left=433 top=268 right=335 bottom=503
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Words
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   --FlashStack Version
  275.   global A,B,C,D,minA,minB,minC,minD,scanRate,offset
  276.  
  277.   if not otherCheck() then
  278.     if noGroup()
  279.     then answer "You Must Choose At Least One Word Group" with "OK"
  280.   else go card (firstGroup() + offset)
  281. else
  282.   if not rangeCheck() then
  283.     answer "ScanRate must be between 0 and 30 secs" with "OK"
  284.     click at the loc of background button "Other"
  285.     type tab
  286.   else
  287.     if noGroup()
  288.     then answer "You Must Choose At Least One Word Group" with "OK"
  289.   else go card (firstGroup() + offset)
  290. end if
  291. end if
  292. end mouseUp
  293.  
  294.  
  295.  
  296. -- part 11 (button)
  297. -- low flags: 00
  298. -- high flags: A006
  299. -- rect: left=259 top=191 right=211 bottom=376
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: Show Answers
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   global delayTime,showAnswers,offSet
  311.  
  312.   if not hilite of bkgnd button "Show Answers" then
  313.     set hilite of bkgnd button "Show Answers" to true
  314.   end if
  315.   set hilite of background button "Hide Answers" to false
  316.   put true into showAnswers
  317.   set lockScreen to true
  318.   go card (offSet + 1)
  319.   show bkgnd field "Translation"
  320.   show bkgnd field "Source"
  321.  
  322.   go card ID 6699
  323.   set lockScreen to false
  324.  
  325. end mouseUp
  326.  
  327.  
  328.  
  329. -- part 12 (button)
  330. -- low flags: 00
  331. -- high flags: E006
  332. -- rect: left=259 top=211 right=231 bottom=376
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: Hide Answers
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   global delayTime,reverse,offSet,showAnswers
  344.  
  345.   if not hilite of bkgnd button "Hide Answers" then
  346.     set hilite of bkgnd button "HIde Answers" to true
  347.   end if
  348.   set hilite of background button "Show Answers" to false
  349.   set lockScreen to true
  350.   put false into showAnswers
  351.   go card (offSet + 1)
  352.   if not reverse then
  353.     hide bkgnd field "Translation"
  354.   else
  355.     hide bkgnd field "Source"
  356.   end if
  357.  
  358.   go card ID 6699
  359.   set lockScreen to false
  360. end mouseUp
  361.  
  362.  
  363.  
  364. -- part 16 (button)
  365. -- low flags: 00
  366. -- high flags: A005
  367. -- rect: left=206 top=306 right=328 bottom=318
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 0 / 0
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: Reverse Lists
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   global reverse,offSet,showAnswers
  379.  
  380.   if hilite of bkgnd button "Reverse Lists" then
  381.     put true into reverse
  382.   else
  383.     put false into reverse
  384.   end if
  385.   if not showAnswers then
  386.     set lockscreen to true
  387.     go card (offSet + 1)
  388.     if not reverse then
  389.       hide bkgnd field "Translation"
  390.       show bkgnd field "Source"
  391.     else
  392.       hide bkgnd field "Source"
  393.       show bkgnd field "Translation"
  394.     end if
  395.     go back
  396.     set lockscreen to false
  397.   end if
  398. end mouseUp
  399.  
  400.  
  401.  
  402.  
  403.  
  404. -- part 22 (button)
  405. -- low flags: 00
  406. -- high flags: A005
  407. -- rect: left=206 top=288 right=307 bottom=323
  408. -- title width / last selected line: 0
  409. -- icon id / first selected line: 0 / 0
  410. -- text alignment: 1
  411. -- font id: 0
  412. -- text size: 12
  413. -- style flags: 0
  414. -- line height: 16
  415. -- part name: Delay Answers
  416. ----- HyperTalk script -----
  417. on mouseUp
  418.   global scanRate,delayTime,showAnswers
  419.  
  420.   if hilite of bkgnd button "Delay Answers" then
  421.     put true into delayTime
  422.   else
  423.     put false into delayTime
  424.   end if
  425.  
  426. end mouseUp
  427.  
  428.  
  429.  
  430. -- part 25 (button)
  431. -- low flags: 00
  432. -- high flags: A005
  433. -- rect: left=206 top=267 right=289 bottom=335
  434. -- title width / last selected line: 0
  435. -- icon id / first selected line: 0 / 0
  436. -- text alignment: 1
  437. -- font id: 0
  438. -- text size: 12
  439. -- style flags: 0
  440. -- line height: 16
  441. -- part name: Scan Backwards
  442. ----- HyperTalk script -----
  443. on mouseUp
  444.   global ScanReverse
  445.   if hilite of bkgnd button "Scan Backwards" then
  446.     put true into ScanReverse
  447.   else
  448.     put false into ScanReverse
  449.   end if
  450. end mouseUp
  451.  
  452.  
  453.  
  454. -- part 26 (button)
  455. -- low flags: 00
  456. -- high flags: 2000
  457. -- rect: left=433 top=126 right=192 bottom=503
  458. -- title width / last selected line: 0
  459. -- icon id / first selected line: 32462 / 32462
  460. -- text alignment: 1
  461. -- font id: 0
  462. -- text size: 12
  463. -- style flags: 0
  464. -- line height: 16
  465. -- part name: Help
  466. ----- HyperTalk script -----
  467. on mouseUp
  468.   --FlashStack Ready
  469.   global scanRate,A,B,C,D
  470.  
  471.   if noGroup()
  472.   then answer "You Must Choose At Least One Word Group" with "OK"
  473. else
  474.   if otherCheck() and not rangeCheck() then
  475.     answer "ScanRate must be between 0 and 30 sces" with "OK"
  476.     click at the loc of background button "Other"
  477.     type tab
  478.   else go card 3
  479. end if
  480. end mouseUp
  481.  
  482.  
  483.  
  484. -- part 28 (button)
  485. -- low flags: 00
  486. -- high flags: 2000
  487. -- rect: left=433 top=54 right=121 bottom=502
  488. -- title width / last selected line: 0
  489. -- icon id / first selected line: 20098 / 20098
  490. -- text alignment: 1
  491. -- font id: 0
  492. -- text size: 12
  493. -- style flags: 0
  494. -- line height: 16
  495. -- part name: Home
  496. ----- HyperTalk script -----
  497. on mouseUp
  498.   --FlashStack Version
  499.   global scanRate,A,B,C,D
  500.  
  501.   if noGroup()
  502.   then answer "You Must Choose At Least One Word Group" with "OK"
  503. else
  504.   if otherCheck() and not rangeCheck() then
  505.     answer "ScanRate must be between 0 and 30 secs" with "OK"
  506.     click at loc of background button "Other"
  507.     type tab
  508.   else go home
  509. end if
  510. end mouseUp
  511.  
  512.  
  513.  
  514. -- part 30 (button)
  515. -- low flags: 00
  516. -- high flags: 2000
  517. -- rect: left=433 top=198 right=261 bottom=502
  518. -- title width / last selected line: 0
  519. -- icon id / first selected line: 29114 / 29114
  520. -- text alignment: 1
  521. -- font id: 0
  522. -- text size: 12
  523. -- style flags: 0
  524. -- line height: 16
  525. -- part name: Return
  526. ----- HyperTalk script -----
  527. on mouseUp
  528.   --FlashStack Version
  529.   global scanRate,A,B,C,D
  530.  
  531.   if noGroup()
  532.   then answer "You Must Choose At Least One Word Group" with "OK"
  533. else
  534.   if otherCheck() and not rangeCheck() then
  535.     answer "ScanRate must be between 0 and 30 secs" with "OK"
  536.     click at the loc of background button "Other"
  537.     type tab
  538.   else go back
  539. end if
  540. end mouseUp
  541.  
  542.  
  543.  
  544. -- part 31 (button)
  545. -- low flags: 00
  546. -- high flags: E006
  547. -- rect: left=20 top=288 right=307 bottom=123
  548. -- title width / last selected line: 0
  549. -- icon id / first selected line: 0 / 0
  550. -- text alignment: 1
  551. -- font id: 0
  552. -- text size: 12
  553. -- style flags: 0
  554. -- line height: 16
  555. -- part name: In Sequence
  556. ----- HyperTalk script -----
  557. on mouseUp
  558.   global inOrder
  559.   if not hilite of bkgnd button "In Sequence" then
  560.     set hilite of bkgnd button "In Sequence" to true
  561.   end if
  562.   set hilite of background button "In Random Order" to false
  563.   put true into inOrder
  564.  
  565. end mouseUp
  566.  
  567.  
  568.  
  569. -- part 32 (button)
  570. -- low flags: 00
  571. -- high flags: A006
  572. -- rect: left=20 top=308 right=327 bottom=151
  573. -- title width / last selected line: 0
  574. -- icon id / first selected line: 0 / 0
  575. -- text alignment: 1
  576. -- font id: 0
  577. -- text size: 12
  578. -- style flags: 0
  579. -- line height: 16
  580. -- part name: In Random Order
  581. ----- HyperTalk script -----
  582. on mouseUp
  583.   global inOrder
  584.  
  585.   if not hilite of bkgnd button "In Random Order" then
  586.     set hilite of bkgnd button "In Random Order" to true
  587.   end if
  588.   set hilite of background button "In Sequence" to false
  589.   put false into inOrder
  590.  
  591.  
  592. end mouseUp
  593.  
  594.